home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ IUnknown File Description 1.xpl < prev    next >
Text File  |  2001-04-06  |  1KB  |  41 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Files&Folders\ANY File"
  5. "NAME"="Unknown File Description"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Description:"
  8. "DESCRIPTION 1"="This plug-in lets you change the description of unknown files. By default, the extension and then 'File' is used (examples are 'LOG File', 'DAT File' etc.). Here you can change this to something more consistant."
  9. "DESCRIPTION 2"="Type in a description, such as 'Unknown File', and all unknown files will use this description. To revert back to the default behaviour, just clear the field."
  10. "DESCRIPTION 3"="You may need to restart your computer for the changes to take effect."
  11. "VERSION"="1.17"
  12. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  13. "CONTACTURL"="http://www.neilrt.cwc.net/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=""
  16.  
  17. P1="HKCR\Unknown\@"
  18.  
  19. SUB Plugin_Initialize
  20.  s=RegReadValue(P1)
  21.  Call SetUIElement(1, s)
  22. END SUB
  23.  
  24. SUB Plugin_CheckData
  25. END SUB
  26.  
  27. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  28.  s=GetUIELement(1)
  29.  if Len(s)<=0 then
  30.   b=RegReadValue(P1)
  31.   if IsEmpty(b)=true then
  32.    Call RegDeleteValue(P1)
  33.   end if
  34.  else
  35.   Call RegWriteValue(P1,s,1)
  36.  end if
  37. END SUB
  38.  
  39. SUB Plugin_Terminate
  40. END SUB
  41.